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++ 
Facility: rms32 


Abstract: 
routine to perform relative file organization specific 
connect stream processing. 


SOOOCCCOCOOCOOSOSOSOOSCOSOOSOSCSOSOSOOSCOSCOOOOSOOOOSOOOOOCOOOSoOOO 


SOSOOOOCSOOCOCOOSOOSOOSOOOSOOOSOSOSOOOSOSOSOSOSOSOSOSOSOO SOOO OOOOOOOOOOOOOOOOOSO 
ae Dee ae ew owl wl wl we el wl ele ee) ww ee aw) ww weal wl ole lolololeleoleoleleleleololeleleleleloleoleleolalelol ala! 


NOUS WN SO ODO NAUE WR SO OD NAUS WSO OD NA UE WN 0 OODNAUES WN OOONOUE Wn 
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Environment: 
star processor running starlet exec. 
Author: L F Laverdure, creation date: 19-OCT-1977 
Modified By: 
v03-007 “regte Ron Schaefer 28-F eb-1983 
ix bad psect ietredusee. by "RASOI19. 
v03-006 KPL0002 Peter Lieberwirth 21-Jan-1983 | 
3 Fix many broken branches. 
0 v03-005 RASO119 Ron Schaefer 19-Jan-1983 
00 Correct RASO092 to compute the correct record number for 
oS the NRP; otherwise you get holes in the record numbers. 
00 v03-004 KBT0131 Keith B. Thompson 20-Aug-1982 
s Reorganize psects 
0 v03-003 KBTOI2e Keith B. Thompson 6-Aug-1982 
8 Remove ref. to set_sidb_adr 
00 v03-002 RASO092 Ron Schaefer 27-Jul-1982 
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v04-000 SEP=-1984 RMS .SRCJRM2CONN.MAR; 1 (1) 

Correct Fennect to EOF Logic to deal correctly with 
sparse files. 

V03-001 JWwHO003 Jeffrey W. Horn 16-Mar-1982 
Prevent connect to eof and block io to be used together 
with relative files. 

V02-016 JwHO002 Jeffrey W. Horn 19=F eb-1982 
a problem with connect to eof option for shared sequential 

es. 
vO2-015 JWHO001 Jeffrey W. Horn 26-0c t-1981 


Added connect to eof option for relative files. Search 
backwards from EBK untill a record is found, set NRP to 
that record plus 1 


on errors, branch to rm$ex_nirab_shr instead of rm$ex_nostr 


COOOCOCOCOCOSOOOCCOSCOOOCOOOCOOOOOOOOOOOOOOOOOOoO 

30000900 09 09 09 09 09 09 09 09 SII ISIN NIN NIN NIA AAA AAAAAOOUIN 

FWN (SO OONA NEW  O OO NOUS WN OOONOAUS Wr OOo 
Bete Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge GaSe Ge Ge Ge Ge Se Ge Ge 


v02-014 KPLOO01 Peter Lieberwirth 24-Jul-1981 
Fix broken branch. 
V02-013 REFORMAT C D Saether 30-Jul-1980 23:07 
v012 CDS0044 C D Saether 22-0c¢t-1979 15:37 
allow for connect to eof option for shared seq file 
use seq mbf when shared seq file, blk io bdb handled 
+4 by rm$bdballoc now 
00 v011 JAK0020 J A Krycka 11-Sep-1979 10:00 
4 remove network code. 
00 v010 CdS$0012 C Saether 24-Jul-1979 14:35 
33 remove references to ifb$Sw_bks_bytes and ifb$w_bks_recs. 
OS v009 wSk0001 W Koeni 5-Feb-1979 12:50 
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++ 
RMSCONNECT2 = connect for relative file organization 
RMSCONNECT_BIO = just get bdb for block i/o connect 


this module performs the following functions required for 
; connecting to relative files. 
1. performs various validity checks 
- If connect for block i/o allocate a bdb and exit 
- allocate bdb's and buffers: 

minimum, otherwise system default 
4. perform various irab initializations 


Calling sequence: 
entered via case branch from rm$connect 
Input Parameters: 


rij impure area address 
r10 ifab address 
r9 irab address 
r8 rab address 


Implicit Inputs: 
the contents of the rab and irab 
Output Parameters: 
r0 status 
Implicit Outputs: 
sets various fields in the irab and ifab. 
Completion Codes: 


SSOSSSCSSSSSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOSOSOSOSOOOOOOOSOoOO 
SOOCSCCOSSOSSSOSSSOSSOSOSOSOOSOSOOOSOSOSOOOOOOOOSOSCSOOoOO 


the standard rms status code is set into r0 and return 

is made to user (not caller) via rm$exsuc (or rm$ex_nostr 
after calling rm$ccln1 if an error is detected, thus 
deallocating all irab - related internal structures). 


Side Effects: 


none 
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06 6A 38 

62 A9 

54 «3 

01 50 AA 

04 

62 Ad = 02 

62 AD 60 AA 

55 SE AA 

55 55 «(09 

55 62 A9 
03 

OOF 6 

00000000 EF 

03 50 
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CONNECT2 
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if open or create was done with bro spec ti tee (mixed block & record i/o), 


; use the bio rop bit to determine whet 


operations. 


wa 
ww 
wo 
ioe] 


; record i/o. 


ASSUME 
CHKRFM: TSTB 

BNEQ 

BRW 
50$: CLRL 


er to connect 


for block or record 


note: any subsequent connects must be of the same type. 


#F ABSV_BRO, IFBSB_FAC( 
RABSV-BIO*ROP, (RB) ,C 

#F ABSV~BIO, 1FB$B_F AL ( 
FABSV~B1O, IFBSB_F AC ( 
FABSC_UDF EQ 0 
JEBSB_RFMORG(R10) 
ERRRFM 

R4 


: calculate cell size for records 


65$: CMPB 


70$: 


RMSCONNECT BIO:: 
JSB 


BLBS 


IF 
60 
IF 
e 


I 
IRBSW_CSIZ(R 
#3,R4 


BSB_FSZ(R10), IRBSW 
IFBS0_SEQF £ {R10).6 


#2, 1RBSW_CSIZ(R9) 
IFBSW_MRS(R10), IRB$SW_CSI2Z¢ 


1FBSB_BKS(RIO) .RS 
#9,R oR5 
IRBSWCSIZ(R9) RS 
RMSCORNECT_BIO 
ERRIFA 


RMSBDBALLOC 


RO, SETNRP 


branch if yes 


to seq disk f 


bro not specified 
io not wanted 


; set block i/o, branch 


; branch if block 


rfm = undefined? 
continue if no 


set default sor rm$bdbai Loc 


le 


500 AF RONGIRIS? AF ANSE TS i vfc rec format? 


ranc not 
SIZ(R9) ; yes-initialize record size 
$ ; br if shared seq file 


: add in control 


byte 


:_ index for relative defaults 
FA$B_RFMORG(R10) ,AFABSC_FIX ; fixed rec. Len? 


; branch if yes 
; add in 2-byte 


> get 


size field 


R9) ; & max record sice 
giving total cell size 
bkt size i 


n blocks 


; f5 gets bkt size in bytes 
; is cell size <= bkt size? 


; Otherwise means record don't fit 
; so presume file header's been 


; messed with 


: LEQU means record fits 


; allocate appropriate number 
; of buffers using r4 to index 


; to defaults 
; allocates bdb 


also allocates 


without buffer 


: a lock bdb if write accessed 


; for block i/o 


connect 


: continue if success 


——— 
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vote RMSCO T2 - ELATIVECSPECIFIC CONNECT -SEP=-1984 ee aed RMS. SRCIRM2CONN. MAR; 1 * 
005% 31 BRW EXIT ; exit on error 
06 68 EO SETNRP: BBS #RABSV_EOF+ROP,(RB),CEOF ; branch if eof bit set in rop 
OA b INCL IRBSL_ARP_VBN(R9) ; set nrp to vbni (rp = 0) 
F92" BRWw RMSEXSUC ; exit with success 


p++ 
; Connect to EOF Processing 


OD 6A 38 €E1 CEOQF: BBC #IFBSV_SEQFIL,(R10),RELF ; br if rel file 


SET NRP for Shared Sequential Files 


40 A9 74 AA DO MOVL IFBSL_EBK(R10), IRBS$L_NRP(R9) ; set nrp from end block 
os Ye BNEQ 1$ ; if non-zero leave it. 
40 Ad 6 INCL IRBSL_NRP(RI) 3; else set nrp to record 1 
FFB1" 31 1$: BRW RMSE XSUC s exit with success 


SND PD PAD A AAD TUT BB BE BEE PW 
AUIS WOO VON WN (OOO NOAM EWN OOONOAU EWN OOOO 2, 


oo 
oo 
VN 
es Da | 
PPMP IPIMPINIPNPONININIPPPMINININPININININININININININININNININININPININIPINIPINININININININIPYNINPININYPINNIPYD 


Baer ; Search for last record if CONNECT to EOF for relative files 
007F . 
03 68 2B 3 007F RELF: BBC #RABSV_BIO+ROP, (RB) ,5$ ; Branch if not block io, 
OO9E 1 0083 BRW ERRROP 3 otherwise error. 
nora 16 086 5$: JSB RMSLOCK_PROLOG ; Lock Prolog 
03 50 fe 08C BLBS RO,10$ ; Continue on success 
0086 31 O008F BRW EXiT 
00D0 8F BB 0092 10$: PUSHR &#*M<R4,R6,R7> : Save plg bdb adr & R6,R7 
SE AA 9A 0096 WOVZBL IFB$B_BKS(R10) ,=(SP) : Get Bucket Size 
56 74 AA Q0BO0 CA (C3 OQ09A SUBL IFBSL DVBN(R105 , JFBSL_EBK(R10) ,R6 ; Calculate VBN of block past 
56 6E€ C6 OQOAI DIVL (SP) ,R6 ; last bucket 
56 00B0 CA 56 = 6E 7A 9 EMUL (SP) ,R6, 1FBSL_DVBN(R10) ,R6 
7 —E 09 78 QOAB 77 SHL #9, (SP). =(SP) ; Calculate records per block 
57 62 a9 3¢ QOAF 28 MOV2WL IRBSW_CSIZ(R9),R7 : Get recordsize longword 
—E 57 C6 0083 7 IvL2 =—-R7, (SP) 
Bree + 
Bi iH 
0B6 ss 3; Begining of Bucket Read/Check Loop 
086 4; (SP) : Records per block 
0B6 85 ; 4(SP) : Bucket Size as longword 
et ae 
6 O04 AE (C2 Oa bs 20$: SUBL 4(SP),R6 ; Look at preivous bucket 
00B0 CA 6 D1 BA CMPL RE 1FBS$L_DVBN(R10) ; Branch if current VBN less then first 
— 19 OOBF 290 Biss} 6—_-«60$ : ata block. 
51 6 oO C1 91 MOVL R6,R1 ; Read Bucket with : VBN 
uL 


| 
| 
| 
| 
| 
| 
| 
i: 
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Foe < p00 RMSCONNECT2 = RELATIVE=SPECIFIC CONNECT "gr iets 7 6: 09°85 AMS SRC IA RM2CO ONN.MAR; 1 ° 
4C AD 4 C4 35 CLRL pret OFF (RO) ; RP_OFF 
C7 9 SCSHFL > : Cathe Flags 
vias 18 C9 94 JSB RMsne ADBKT2 ; Go read it 
.:. = CF 95 BLBC RO 3; Branch if error 
bg 9 ASSUME TNesu WORMSSTATUS EQ 0 
36 00000000 ' 9F 9% EO D 9 BBS eines IORUNDOWN, @#PI1O$SGW_PIOIMPA,50$ ; Exit if rundown in prog 
oe DA 98 CLRL : Count of found records in R7 
ODC 99 
Ope 304 
e : ; Loop to Check Buc'*t for exsisting records 
DC 
33. go ODC 05 VL #1,R3 ; Count the records/bucket 
50 62 49 3C OODF 06 MOVZWL IRB$W_CSIZ(R9),RO : Size of each record 
03 65 93 E1 Bees 07 30$ C #OLC$U_REC, (R55, 35$ ; Branch if record does not exist 
7 % DO E7 08 MOVL RARE ; Save record number if found 
55 = 550 c9 OOEA 09 358: ADDL2 R5 ; Point at next record 
F253 «GE CO*F QOED 10 AOBLEQ Ree) RS, 308 : Loop if not last record 
00000000 "EF 16 OOF1 \ 40$: JSB RMSRLNERR ; Release bucket 
31 50 €9 OOF7 1 BLBC RO, ERRORE ; Branch if error on release 
57 DS OOFA 14 TSTL R7 ; Did we find a record? 
L ; No, go look at prev bucket 
B8 13 OOFC 15 BEQ 208 Look buck 
eas 
sit 3 ; Found a record, compute it's Relitive Record Number 
OOFE 320° 
56 O0OBO CA (C2 pore 331 SUBL IFB$L_DVBN(R10) ,R6 ; Number of data blocks before VBN fnd 
56 04 AE C6 010 ; DIVL 4(SP),R6 : end compute # buckets before VBN fnd 
56 6— C4& 0107 2 ULL (SP) ,R6 mpute # records before VBN found 
40 A A64 E A 4 MOVAB (R6)CR IRB$L_NRP_VBN( y° ag next record number 
0 a9 01.0647 9 O10, 34 1(R65CR71, IRBS kg} 
8E 7C 0110 26 50$: CLRQ (SP)+ ; Pop temp space 
0OD0 8F BA 0112 27 POPR #*M<R4,R6,R7> ; Restore plg bdb adr & R6,R7 
O0000000'EF 16 0116 328 JSB RMSRLSPLG : Release prolog 
FEET’ 31 O11C 329 BRW RMSEXSUC 
O11F 0 
OIE | 332 
O11F 35 ; At Begining of file 
ONE | 838° 
40 AD 6 OIE 3 60$: INCL [ROS MAP _VONCRD) ; Set nrp to record #1 
EC 11 B1S¢ 37 BRB 0$ 
0124 38 


—E 1 
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000 RMSCONNECT2 = RELATIVE=SPECIFIC CONNECT -SEP-1984 16:25:58 [CRMS.SRCIRM2CONN.MAR; 1 
124 40 
124 4) ;++ 
124 tg : 
124 45 ; handle errors 
124 44; 
124 45 ;-- 
124 6 
124 47; 
+ : rt ; EOF and BIO combination illegal for relative files. 
0124 50 
4 4 51 ERRROP: 
124 2¢ RMSERR 
1A 1129 5 BRB CLNUP 
4 B 54 
128 55; 
0196 28 3 read error on bucket, assume EBK messed up. 
128 «358 * 
BE 7C 0128 328 ERRORE: CLRQ (SP)+ ; Pop temp space 
OODO0 8F BA B18 360 POPR #*M<R4,R6,R7> ; Restore plg bdb adr & R6,R7 
OOOOOOO00'EF 16 0131 #0) JSB RMSRLSPLG ; release prolog 
0000827A 8F 50 D1 0137 o¢ CMPL RO,#<RMS$_EOF & “XFFFF> ; end of file error? 
05 12 OE 36 BNEQ LNUP : branch if not 
gree ee RMSERR IFA ; assume file header messed up 
0145 366; fall thru to cleanup 
0145 7e/ : 
0145 68 
FEBB8* 30 0145 69 CLNU yp BSBW RMSCCLN1 ; deallocate irab 
00000000 ‘EF 17 0148 70 EXIT JMP RMSEX_NIRAB_SHR 3: and exit 
ge 
Ries 378 : calculated that bucket holds 0 records. must be bad data in file header. 
O14E 75 
O14E 76 ERRIFA: 
OC AB 00018504 BF DO O14E 77 MOVL eons _MRS,RABSL_STV(R8) ; stv secondary error code 
0156 78 RMSERR IFA : illegal file attributes 
—E8 11 O15B 379 BRB CLNUP 3; and cleanup 
0150 380 
015D 81; 
15D 5 ; undefined record format for record i/o 
18 3Ba 
00000000 ‘EF 17 3128 $2 ERRRFM: JMP RMSCONN_ERRRFM 3 go report error 
0163 387 END 
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_ RM2CONN 


RELATIVE 
Psect synopsis 


PSECT name 


- ABS. 
RMSRMS2 
SABSS 


Page faults 
Initialization 30 
Command processing 114 
Pass 297 
Symbol table sort 0 
ass 2 77 
Symbol table output 8 
Psect synopsis output 3 
Cross-reference output 


Assembler run totals 


The working set Limit was 1500 pages. 
51761 bytes (102 pages) of virtual memor 
There were 50 


pages of symbol table space allocated to hold 9 


G 1 
“SPECIFIC CONNECT 


: Psect synopsis ! 
¢eeeeeeseoeeeeeeean} 
on PSECT No. Attributes 
( be 0 ¢ 0.) NOPIC  USR 
© 353.2 14 ia PIC USR 
( 0.) 02 ¢ 2.) NOPIC  USR 
teow monn en me cnn enn own een ee 
H Performance indicators ! 
CPU Time Elapsed Time 
OO OO 00-08 00:00:00.60 
00:00:00.68 BR Oe 88 -0E 
Es St TY 00:00:27.4 
00:00:01.2 00:00:01.79 
00:00:01.90 00:00:03.71 
00:00:00.10 00:00:00.27 
00:00:00.02 00:00:00.02 
Sha ae gS 4 00:00:00.00 
00:00:13. 00:00:38.90 


y were used to buffer 


387 source Lines were read in Pass 1, producing 14 object records in Pass 2 
23 pages of virtual memory were used to define 22 macros. 


Macro Library name 
_$255$DUA28: ee ah yy ee 
Bitttrws 8 SYS.OBJJLIB.MLB;1 

$255$DUA28: (SYSLIBIJSTARLET.MLB;2 
TOTALS (all Libraries) 


1102 GETS were required to define 18 mac 


There were no errors, warnings or inform 


ros. 


ation messages. 


CON 
CON 
CON 


he intermediate code. 
non-local and 14 local symbols. 


ge Macro V04-00 
RMS.SRCJRM2CONN.MAR; 1 


ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 


MACRO/LIS=L1IS$:RM2CONN/OBJ=OBJ$:RM2CONN MSRC$:RM2CONN/UPDATE=(ENH$: RM2CONN) +EXECML$/LIB+LIB$:RMS/LIB 


v v 
=> 
& 
" 
@ 


— 
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